home *** CD-ROM | disk | FTP | other *** search
/ CDUTIL 13 / CDUTIL #13 Julio 1995.iso / windows / amipro3 / macros.cmz / CHGFONT.SMM < prev    next >
Encoding:
INI File  |  1992-11-18  |  18.8 KB  |  1,280 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PCL / HP LaserJet
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Cambia los tipos de letra de las hojas de estilos.
  19.     Lotus WPD Technical Support
  20.     Advanced
  21.     DllCalls, Arrays
  22.     No Autorun
  23.     719539174
  24.     126
  25.     674351641
  26.     1192
  27.     6
  28.     917
  29.     6327
  30.     19
  31.     21
  32.     Fonts, 
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [tag]
  56.     Est<\a>ndar
  57.     5
  58.     [fnt]
  59.         Tms Rmn
  60.         240
  61.         0
  62.         49152
  63.     [algn]
  64.         1
  65.         1
  66.         0
  67.         0
  68.         0
  69.     [spc]
  70.         17
  71.         0
  72.         1
  73.         0
  74.         0
  75.         1
  76.         100
  77.     [brk]
  78.         4
  79.     [line]
  80.         8
  81.         0
  82.         1
  83.         0
  84.         1
  85.         1
  86.         1
  87.         10
  88.         10
  89.         1
  90.     [spec]
  91.         0
  92.         0
  93.         
  94.         0
  95.         1
  96.         1
  97.         0
  98.         0
  99.         0
  100.         0
  101.     [nfmt]
  102.         24
  103.         1
  104.         2
  105.         ,
  106.         .
  107.         Pts
  108.     Est<\a>ndar
  109.     0
  110.     0
  111. [tag]
  112.     Standard
  113.     6
  114.     [fnt]
  115.         Tms Rmn
  116.         240
  117.         0
  118.         49152
  119.     [algn]
  120.         1
  121.         1
  122.         0
  123.         0
  124.         0
  125.     [spc]
  126.         17
  127.         0
  128.         1
  129.         0
  130.         0
  131.         1
  132.         100
  133.     [brk]
  134.         4
  135.     [line]
  136.         8
  137.         0
  138.         1
  139.         0
  140.         1
  141.         1
  142.         1
  143.         10
  144.         10
  145.         1
  146.     [spec]
  147.         0
  148.         0
  149.         
  150.         0
  151.         1
  152.         1
  153.         0
  154.         0
  155.         0
  156.         0
  157.     [nfmt]
  158.         24
  159.         1
  160.         2
  161.         ,
  162.         .
  163.         Pts
  164.     Standard
  165.     0
  166.     0
  167. [lay]
  168.     1
  169.     513
  170.     [rght]
  171.         15840
  172.         12240
  173.         1
  174.         720
  175.         1440
  176.         1
  177.         1440
  178.         720
  179.         2
  180.         1
  181.         0
  182.         1
  183.         1
  184.         2
  185.         1
  186.         720
  187.         11520
  188.         7
  189.         1
  190.         720
  191.         1
  192.         1440
  193.         1
  194.         2160
  195.         1
  196.         2880
  197.         1
  198.         3600
  199.         1
  200.         4320
  201.         3
  202.         10800
  203.     [hrght]
  204.     [lyfrm]
  205.         1
  206.         11200
  207.         0
  208.         0
  209.         12240
  210.         1440
  211.         0
  212.         1
  213.         3
  214.         1 0 0 0 0 0 0
  215.         0
  216.         0
  217.         1
  218.     [frmlay]
  219.         1440
  220.         12240
  221.         1
  222.         720
  223.         72
  224.         1
  225.         144
  226.         720
  227.         0
  228.         1
  229.         0
  230.         1
  231.         1
  232.         0
  233.         1
  234.         720
  235.         11520
  236.         1
  237.         3
  238.         10601
  239.     [txt]
  240. ChangeFonts by John McDaniel, Modified 4/23/92 Peyton McMAnus    July 13, 1991
  241.  
  242. Customer Support Department    Page <:P11,1,>
  243.  
  244. Lotus Development Corporation WPD    CHGFONT.SMM
  245.  
  246. >
  247.     [frght]
  248.     [lyfrm]
  249.         1
  250.         13248
  251.         0
  252.         14400
  253.         12240
  254.         15840
  255.         0
  256.         1
  257.         3
  258.         1 0 0 0 0 0 0
  259.         0
  260.         0
  261.         2
  262.     [frmlay]
  263.         15840
  264.         12240
  265.         1
  266.         1440
  267.         360
  268.         1
  269.         14472
  270.         1440
  271.         0
  272.         1
  273.         0
  274.         1
  275.         1
  276.         0
  277.         1
  278.         1440
  279.         10800
  280.         0
  281.     [txt]
  282. >
  283. [elay]
  284. [l1]
  285.     0
  286. [pg]
  287.     6
  288.     48 0 11 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  289.     97 0 39 0 0 1 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  290.     142 0 57 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  291.     191 0 21 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  292.     238 0 0 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  293.     257 0 10 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  294. [edoc]
  295. <:#284,9025>Declare Embedded(FileName)
  296.  
  297. <:#284,9025>Declare    GetFonts(FontNames)
  298.  
  299. <:#284,9025>
  300.  
  301. @Function@<:#293,9025>FUNCTION chgfont() '    This macro calls FONTDLL.EXE which returns
  302.  
  303. <:#284,9025>IF IsNewWave()
  304.  
  305. <:#284,9025>    Message("Macro no disponible si se ejecuta en HP NewWave.")
  306.  
  307. <:#284,9025>    Exit Function
  308.  
  309. <:#284,9025>ENDIF
  310.  
  311. <:#284,9025>DefStr Stat;
  312.  
  313. <:#284,9025>DIM files(1) '    all of the available typefaces for your
  314.  
  315. <:#284,9025>DIM BaseFonts(1) '    change any typeface to an available typeface
  316.  
  317. <:#284,9025>DIM nface(200) '    for all of your style sheets, and also sets the
  318.  
  319. <:#284,9025>DIM oface(200) '    style sheet for your default printer
  320.  
  321. <:#284,9025>Dim Detect(1)
  322.  
  323. <:#284,9025>IF GetOpenFileCount() << 1
  324.  
  325. <:#284,9025>    defstyle = getprofilestring$("amipro", "defstyle", "amipro.ini")
  326.  
  327. <:#284,9025>    IF defstyle = "" THEN
  328.  
  329. <:#284,9025>        defstyle = "_omisi<\s>n.sty"
  330.  
  331. <:#284,9025>    ENDIF
  332.  
  333. <:#284,9025>    new(defstyle, 0, 0)
  334.  
  335. <:#284,9025>ENDIF
  336.  
  337. <:#284,9025><:><:><:Z|><:Z~|>ONCANCEL endit
  338.  
  339. <:#284,9025>ONERROR endit
  340.  
  341. <:#284,9025>IgnoreKeyboard(1)
  342.  
  343. <:#284,9025>mpath = GetMacPath$()
  344.  
  345. <:#284,9025>stypath = GetStylePath$()
  346.  
  347. <:#284,9025>q = 2
  348.  
  349. <:#284,9025>If 0 = GetFonts(&BaseFonts)
  350.  
  351. <:#284,9025>    Else
  352.  
  353. <:#284,9025>        Message("No se ha podido recuperar el tipo de letra")
  354.  
  355. <:#284,9025>        Exit Function
  356.  
  357. <:#284,9025>Endif
  358.  
  359. <:#284,9025>
  360.  
  361. <:#284,9025>defprtr = GetProfileString$("windows","device","WIN.INI") 
  362.  
  363. <:#284,9025>IF defprtr = "" THEN
  364.  
  365. <:#568,9025>    Message("No se ha podido localizar la impresora por omisi<\s>n. Fin de la macro")
  366.  
  367. <:#284,9025>    Exit Function
  368.  
  369. <:#284,9025>ENDIF
  370.  
  371. <:#284,9025>endofprt = Instr(0,defprtr,",")
  372.  
  373. <:#284,9025>IF endofprt <<<;> 0 THEN
  374.  
  375. <:#284,9025>    defprtr = Left$(defprtr,(endofprt - 1))
  376.  
  377. <:#284,9025>ENDIF
  378.  
  379. <:#284,9025>
  380.  
  381. <:#284,9025>DOSchdir(Left$(stypath,(Len(stypath) - 1))) '    Choose style sheets to modify
  382.  
  383. <:#284,9025>FillEdit(110,1)
  384.  
  385. <:#284,9025>FillEdit(9001,"*.sty")
  386.  
  387. <:#284,9025>box3 = DialogBox(".","PICKFILE")
  388.  
  389. <:#284,9025>IF box3 <<<;>1
  390.  
  391. <:#284,9025>        Exit function
  392.  
  393. <:#284,9025>ENDIF
  394.  
  395. <:#284,9025>stypath=GetCurrentDir$()
  396.  
  397. <:#284,9025>IF GetDialogField$(110)=1 THEN '    Check for select one option
  398.  
  399. <:#284,9025>    Files(1) = GetDialogField$(9001)
  400.  
  401. <:#284,9025>    If Files(1) = ""
  402.  
  403. <:#284,9025>        Exit Function
  404.  
  405. <:#284,9025>    ENDIF
  406.  
  407. <:#284,9025>    t = 1
  408.  
  409. <:#284,9025>    GOTO loop3
  410.  
  411. <:#284,9025>ENDIF
  412.  
  413. <:#284,9025>file = FindFirst$("{stypath}*.sty" 0) '    Look for first style sheet
  414.  
  415. <:#284,9025>files(1) = file
  416.  
  417. <:#284,9025>t = 1
  418.  
  419. <:#284,9025>WHILE (file <<<;> "")
  420.  
  421. <:#284,9025>    t = t + 1
  422.  
  423. <:#284,9025>    file = FindNext$()
  424.  
  425. <:#284,9025>    ArrayInsert(&Files,t,File) '     load array with styles
  426.  
  427. <:#284,9025>WEND
  428.  
  429. <:#284,9025>t = t - 1
  430.  
  431. <:#284,9025>loop3:
  432.  
  433. <:#284,9025>FOR x = 1 TO t '                Open style sheet as ASCII
  434.  
  435. <:#284,9025>    HourGlass(on)
  436.  
  437. <:#284,9025>    file = files(x)
  438.  
  439. <:#284,9025>    If 0 = Embedded(File)
  440.  
  441. <:#284,9025>        Else
  442.  
  443. <:#284,9025>            StatusBarMsg("Se ha hallado el gr<\a>fico en {File}")
  444.  
  445. <:#284,9025>            ' A graphic was detected
  446.  
  447. <:#284,9025>            ArrayInsertByKey(&Detect,File,1)
  448.  
  449. <:#284,9025>            Goto Loopem
  450.  
  451. <:#284,9025>    Endif
  452.  
  453. <:#284,9025>    Longfile = strcat$(stypath,"{file}")
  454.  
  455. <:#284,9025>    AsciiOptions(16)
  456.  
  457. <:#284,9025>    If 1 != FileOpen(longfile,144,"ASCII")
  458.  
  459. <:#284,9025>        GOTO skipfile
  460.  
  461. <:#284,9025>    ENDIF
  462.  
  463. <:#284,9025>    StatusBarMsg("Se est<\a> examinando {longfile}...{x} de {T}")
  464.  
  465. <:#284,9025>    If 1 = Replace(0,0,4,"prn","prn")
  466.  
  467. <:#284,9025>        TYPE("<[>down]<[>shiftctrldown]{defprtr}")
  468.  
  469. <:#284,9025>    Else
  470.  
  471. <:#284,9025>            GOTO skipfile
  472.  
  473. <:#284,9025>    ENDIF
  474.  
  475. <:#284,9025>    again:
  476.  
  477. <:#284,9025>    WHILE(1= Replace(0,0,4,"fnt","fnt")) 'Find typeface for paragraph style
  478.  
  479. <:#284,9025>        TYPE("<[>down]<[>home]<[>right]<[>right]<[>shiftend]")
  480.  
  481. <:#284,9025>        txt = curshade$()
  482.  
  483. <:#284,9025>        k = ArraySize(&Basefonts)
  484.  
  485. <:#284,9025>        If 0 !=Assign(&Stat,ArraySearch(&BaseFonts,Txt))
  486.  
  487. <:#284,9025>            cg = 1    'We have a match for our font
  488.  
  489. <:#284,9025>        Else
  490.  
  491. <:#284,9025>                ' No match for font in our base set
  492.  
  493. <:#284,9025>        Endif
  494.  
  495. <:#568,9025>        FOR u = 1 TO (q - 1) '    Check to see if font has already been changed
  496.  
  497. <:#284,9025>            IF txt = oface(u) THEN
  498.  
  499. <:#284,9025>                newface = nface(u)
  500.  
  501. <:#284,9025>                TYPE("{newface}")
  502.  
  503. <:#284,9025>                GOTO loop2
  504.  
  505. <:#284,9025>            ENDIF
  506.  
  507. <:#284,9025>        NEXT
  508.  
  509. <:#284,9025>        IF cg = 1 THEN
  510.  
  511. <:#568,9025>            dc = Decide("""{txt}"" est<\a> disponible en la impresora por omisi<\s>n. 
  512. </>Desea modificarlo?")
  513.  
  514. <:#284,9025>            IF dc = 0 THEN
  515.  
  516. <:#284,9025>                dbox2 = 0
  517.  
  518. <:#284,9025>                GOTO loop5
  519.  
  520. <:#284,9025>            ENDIF
  521.  
  522. <:#284,9025>        ENDIF
  523.  
  524. <:#284,9025>        FillEdit(8050,"""{txt}""")
  525.  
  526. <:#284,9025>        FillEdit(8060,"{file}")
  527.  
  528. <:#284,9025>        IF cg = 1 THEN
  529.  
  530. <:#568,9025>            FillEdit(8070,"se cambiar<\a>. Seleccione un tipo de letra disponible para sustituirlo.")
  531.  
  532. <:#284,9025>            cg = 0
  533.  
  534. <:#284,9025>            GOTO loop4
  535.  
  536. <:#284,9025>        ENDIF
  537.  
  538. <:#568,9025>        FillEdit(8070,"no est<\a> disponible en la impresora por omisi<\s>n. Seleccione un tipo de letra disponible.")
  539.  
  540. <:#284,9025>        loop4:
  541.  
  542. <:#284,9025>            FillEdit(9000,&Basefonts)
  543.  
  544. <:#284,9025>        dbox2 = DialogBox(".","CHNGFONT")
  545.  
  546. <:#284,9025>        newface = GetDialogField$(9000)
  547.  
  548. <:#284,9025>        loop5:
  549.  
  550. <:#284,9025>        IF dbox2 = 0 THEN
  551.  
  552. <:#284,9025>            newface = txt
  553.  
  554. <:#284,9025>            cg = 0
  555.  
  556. <:#284,9025>        ENDIF
  557.  
  558. <:#284,9025>        oface(q) = txt
  559.  
  560. <:#284,9025>        nface(q) = newface
  561.  
  562. <:#284,9025>        q=q+1
  563.  
  564. <:#284,9025>        TYPE("{newface}")
  565.  
  566. <:#284,9025>        StatusBarMsg("Se est<\a> examinado {longfile}")
  567.  
  568. <:#284,9025>loop2:
  569.  
  570. <:#284,9025>    WEND
  571.  
  572. <:#284,9025>skipfile:
  573.  
  574. <:#284,9025>StatusBarMsg("")
  575.  
  576. <:#284,9025>AnswerMsgBox(Yes)
  577.  
  578. <:#284,9025>ImportExport(Export,longfile,"ASCII",FALSE,"PARA","ANSI")
  579.  
  580. <:#284,9025>FileChanged(1,0)
  581.  
  582. <:#284,9025>Loopem:
  583.  
  584. @Body Single@<:#284,9025>
  585.  
  586. @Body Single@<:#284,9025>NEXT
  587.  
  588. <:#284,9025>defsty = getprofilestring$("AmiPro" "defstyle" "AMIPRO.INI")
  589.  
  590. <:#284,9025>IF defsty = "" THEN
  591.  
  592. <:#284,9025>    defsty = "_OMISION.STY"
  593.  
  594. <:#284,9025>ENDIF
  595.  
  596. <:#284,9025>New(defsty,0,128)
  597.  
  598. <:#284,9025>endit:
  599.  
  600. @Body Single@<:#284,9025>StatusBarMsg("")
  601.  
  602. <:#284,9025>NotModified = ArraySize(&Detect)
  603.  
  604. <:#284,9025>If NotModified <;>1
  605.  
  606. <:#284,9025>    Filledit(9000,&Detect)
  607.  
  608. <:#284,9025>    Box = DialogBox(".","Graphics")
  609.  
  610. <:#284,9025>Endif
  611.  
  612. <:#284,9025>end function
  613.  
  614. <:#284,9025>
  615.  
  616. @Function@<:#293,9025>Function Embedded(FileName)
  617.  
  618. <:#284,9025>DefStr FileId;
  619.  
  620. <:#284,9025>Dir = GetStylePath$()
  621.  
  622. <:#284,9025>If 0 != Assign(&FileId,Fopen("{Dir}{FileName}","r"))
  623.  
  624. <:#284,9025>    Else
  625.  
  626. <:#284,9025>        Message("No se ha podido abrir el archivo")
  627.  
  628. <:#284,9025>        Return -1
  629.  
  630. <:#284,9025>Endif
  631.  
  632. <:#284,9025>Fseek(FileId,0,Fend) ' move to end of file
  633.  
  634. <:#284,9025>TotalBytes = FTell(FileId)
  635.  
  636. <:#284,9025>GetNumber = TotalBytes - 10
  637.  
  638. <:#284,9025>Fseek(FileId,GetNumber,0)
  639.  
  640. <:#284,9025>FindEmbedLocation = Fread(FileId, 10)    ' Read where to move file pointer
  641.  
  642. <:#284,9025>If IsNumeric(FindEmbedLocation)
  643.  
  644. <:#284,9025>    Else
  645.  
  646. <:#284,9025>        'Message("No num<\i>rico")
  647.  
  648. <:#284,9025>        FClose(FileId)
  649.  
  650. <:#284,9025>        Return -1
  651.  
  652. <:#284,9025>Endif
  653.  
  654. <:#284,9025>If FindEmbedLocation + 17 << GetNumber
  655.  
  656. <:#284,9025>        Status = -1
  657.  
  658. <:#284,9025>    Else
  659.  
  660. <:#284,9025>        Status = 0
  661.  
  662. <:#284,9025>Endif
  663.  
  664. <:#284,9025>FClose(FileId)
  665.  
  666. <:#284,9025>Return Status
  667.  
  668. <:#284,9025>End Function
  669.  
  670. <:#284,9025>
  671.  
  672. <:#284,9025>
  673.  
  674. @Function@<:#293,9025>Function GetFonts(BaseFonts)
  675.  
  676. <:#284,9025>mpath = GetMacPath$()
  677.  
  678. <:#284,9025>{fdll} = "{mpath}fontdll.exe" '    Find FONTDLL.EXE
  679.  
  680. <:#284,9025>StatusBarMsg("Se est<\a>n examinado los tipos de letra disponibles...")
  681.  
  682. <:#284,9025>dllfile = FindFirst$(fdll 0)
  683.  
  684. <:#284,9025>IF dllfile <<<;> "FONTDLL.EXE" THEN
  685.  
  686. <:#284,9025>    Message("No se ha hallado el archivo Fontdll.exe. Fin de la macro.")
  687.  
  688. <:#284,9025>    Return -1
  689.  
  690. <:#284,9025>ENDIF
  691.  
  692. <:#284,9025>
  693.  
  694. <:#284,9025>Idi = DLLLoadLib(fdll, "FNT_FontInit", "A")
  695.  
  696. <:#284,9025>DLLCALL(Idi)
  697.  
  698. <:#284,9025>Idf = DLLLoadLib(fdll, "FNT_FontFace", "F")
  699.  
  700. <:#284,9025>DEFSTR face, i
  701.  
  702. <:#284,9025>i = 0
  703.  
  704. <:#284,9025>face = "a" '                    just a non null value
  705.  
  706. <:#284,9025>WHILE (face <<<;> "")
  707.  
  708. <:#284,9025>    face = DLLCALL(Idf)
  709.  
  710. <:#284,9025>    i = i + 1
  711.  
  712. <:#284,9025>    ArrayInsertByKey(&BaseFonts,Face,0)'Load typefaces into an array
  713.  
  714. <:#284,9025>WEND
  715.  
  716. <:#284,9025>Idc = DLLLoadLib(fdll, "FNT_FontClose", "I")
  717.  
  718. <:#284,9025>result = DLLCALL(Idc)
  719.  
  720. <:#284,9025>DllFreeLib(Idc)
  721.  
  722. <:#284,9025>DllFreeLib(Idf)
  723.  
  724. <:#284,9025>DllFreeLib(Idi)
  725.  
  726. <:#284,9025>StatusBarMsg("")
  727.  
  728. <:#284,9025>End Function
  729.  
  730. <:#284,9025>
  731.  
  732. <:#284,9025>
  733.  
  734. <:#284,9025>
  735.  
  736. <:#284,9025>
  737.  
  738. <:#284,9025>
  739.  
  740. <:#284,9025>------------------------------------------------------------------------------------------
  741.  
  742. <:#284,9025>
  743.  
  744. <:#284,9025>DIALOG    CHNGFONT
  745.  
  746. <:#568,9025>-2134376448    9    94    78    181    128    ""    ""    "Tipo de letra nuevo"
  747.  
  748. <:#284,9025>FONT    8    "Helv"
  749.  
  750. <:#284,9025>134    6    40    14    1    1342242817    "button"    "Aceptar"    0 
  751.  
  752. <:#284,9025>134    23    40    14    2    1342242816    "button"    "Cancelar"    0 
  753.  
  754. <:#284,9025>7    88    35    10    1000    1342177280    "static"    "El tipo"    0 
  755.  
  756. <:#284,9025>31    88    89    9    8050    1342177280    "static"    ""    0 
  757.  
  758. <:#284,9025>7    97    138    19    8070    1342177280    "static"    ""    0 
  759.  
  760. <:#284,9025>6    22    86    63    9000    1352728579    "listbox"    ""    0 
  761.  
  762. <:#568,9025>6    9    121    10    1006    1342177280    "static"    "Tipos disponibles en la impresora:"    0 
  763.  
  764. <:#284,9025>102    44    55    10    1001    1342177280    "static"    "Hoja de estilos:"    0 
  765.  
  766. <:#284,9025>102    56    57    10    8060    1342177280    "static"    ""    0 
  767.  
  768. <:#284,9025>END DIALOG
  769.  
  770. <:#284,9025>
  771.  
  772. <:#284,9025>DIALOG    PICKFILE
  773.  
  774. <:#568,9025>-2134376448    7    124    58    175    105    ""    ""    "Selecci<\s>n de hojas de estilos"
  775.  
  776. <:#284,9025>FONT    8    "Helv"
  777.  
  778. <:#284,9025>5    15    62    83    9001    1352728579    "listbox"    ""    0 
  779.  
  780. <:#284,9025>110    5    43    14    1    1342242817    "button"    "Aceptar"    0 
  781.  
  782. <:#284,9025>5    4    73    10    7999    1342177280    "static"    "text"    0 
  783.  
  784. <:#284,9025>110    20    43    14    2    1342242816    "button"    "Cancelar"    0 
  785.  
  786. <:#284,9025>72    60    97    37    79    1342177287    "button"    "Opciones:"    0 
  787.  
  788. <:#568,9025>77    71    90    12    110    1342177289    "button"    "Una sola hoja de estilos"    0 
  789.  
  790. <:#568,9025>77    81    88    12    111    1342177289    "button"    "Directorio completo"    0 
  791.  
  792. <:#284,9025>END DIALOG
  793.  
  794. <:#284,9025>
  795.  
  796. DIALOG    Graphics
  797.  
  798. -2134376448    3    56    29    145    105    ""    ""    "Hojas de estilos sin modificar"
  799.  
  800. FONT    8    "Helv"
  801.  
  802. 101    4    40    14    1    1342373889    "button"    "Aceptar"    0 
  803.  
  804. 4    43    93    53    9000    1352728579    "listbox"    ""    0 
  805.  
  806. 4    3    94    33    1000    1342177280    "static"    "Estas hojas de estilos no se han modificado debido la existencia de gr<\a>ficos integrados"    0 
  807.  
  808. END DIALOG
  809.  
  810. >
  811.  
  812. [Embedded]
  813. 00013346
  814. >
  815. [macsum] 6
  816. chgfont 0 0 28 3
  817. Embedded 3274 1 7 160
  818. GetFonts 3721 1 10 189
  819. CHNGFONT 4330 0 -1 224
  820. PICKFILE 4883 0 -1 238
  821. Graphics 5353 0 -1 250
  822. [macse]
  823. 14 chgfont
  824. 0 1317
  825. 13
  826. 11 00000105
  827. 0 3 "Macro no disponible si se ejecuta en HP NewWave."
  828. 6 0
  829. 15
  830. 9
  831. 5 1
  832. 21 2 [X]
  833. 5 1
  834. 21 3 [X]
  835. 5 200
  836. 21 4 [X]
  837. 5 200
  838. 21 5 [X]
  839. 5 1
  840. 21 6 [X]
  841. 0 1050
  842. 13
  843. 5 1
  844. 18 5
  845. 11 00000344
  846. 0 286 "amipro" "defstyle" "amipro.ini"
  847. 13
  848. 8 7
  849. 6 7
  850. 7 ""
  851. 18 0
  852. 11 00000325
  853. 7 "_omisi<\s>n.sty"
  854. 8 7
  855. 2 101 1 "{7}" 0 0
  856. 19 00003156
  857. 20 00003156
  858. 0 32 1
  859. 0 295
  860. 13
  861. 8 8
  862. 0 269
  863. 13
  864. 8 9
  865. 5 2
  866. 8 10
  867. 5 0
  868. 16 GetFonts &3
  869. 13
  870. 18 0
  871. 11 00000478
  872. 10 00000540
  873. 0 3 "No se ha podido recuperar el tipo de letra"
  874. 6 0
  875. 15
  876. 9
  877. 0 286 "windows" "device" "WIN.INI"
  878. 13
  879. 8 11
  880. 6 11
  881. 7 ""
  882. 18 0
  883. 11 00000707
  884. 0 3 "No se ha podido localizar la impresora por omisi<\s>n. Fin de la macro"
  885. 6 0
  886. 15
  887. 9
  888. 0 808 0 "{11}" ","
  889. 13
  890. 8 12
  891. 6 12
  892. 5 0
  893. 18 1
  894. 11 00000811
  895. 6 12
  896. 5 1
  897. 3 1
  898. 0 806 "{11}" [X]
  899. 13
  900. 8 11
  901. 0 14 "{9}"
  902. 13
  903. 5 1
  904. 3 1
  905. 0 806 "{9}" [X]
  906. 13
  907. 0 781 [X]
  908. 0 31 110 1
  909. 0 31 9001 "*.sty"
  910. 0 26 "." "PICKFILE"
  911. 13
  912. 8 13
  913. 6 13
  914. 5 1
  915. 18 1
  916. 11 00000973
  917. 6 0
  918. 15
  919. 9
  920. 0 290
  921. 13
  922. 8 9
  923. 0 27 110
  924. 13
  925. 5 1
  926. 18 0
  927. 11 00001125
  928. 5 1
  929. 0 27 9001
  930. 13
  931. 23 2
  932. 5 1
  933. 22 2
  934. 7 ""
  935. 18 0
  936. 11 00001101
  937. 6 0
  938. 15
  939. 9
  940. 5 1
  941. 8 14
  942. 10 00001313
  943. 0 280 "{9}*.sty" 0
  944. 13
  945. 8 15
  946. 5 1
  947. 6 15
  948. 23 2
  949. 5 1
  950. 8 14
  951. 6 15
  952. 7 ""
  953. 18 1
  954. 11 00001291
  955. 6 14
  956. 5 1
  957. 3 0
  958. 8 14
  959. 0 281
  960. 13
  961. 8 15
  962. 0 1041 &2 "{14}" "{15}"
  963. 10 00001183
  964. 6 14
  965. 5 1
  966. 3 1
  967. 8 14
  968. 5 1
  969. 8 16
  970. 6 14
  971. 6 16
  972. 18 2
  973. 12 00001403
  974. 10 00003029
  975. 5 1
  976. 6 16
  977. 3 0
  978. 8 16
  979. 10 00001324
  980. 0 296 1
  981. 6 16
  982. 22 2
  983. 8 15
  984. 5 0
  985. 16 Embedded "{15}"
  986. 13
  987. 18 0
  988. 11 00001491
  989. 10 00001569
  990. 0 789 "Se ha hallado el gr<\a>fico en {15}"
  991. 0 1045 &6 "{15}" 1
  992. 10 00003016
  993. 0 16 "{9}" "{15}"
  994. 13
  995. 8 17
  996. 2 123 1 16
  997. 5 1
  998. 2 102 1 "{17}" 144 "ASCII"
  999. 13
  1000. 18 1
  1001. 11 00001679
  1002. 10 00002945
  1003. 0 789 "Se est<\a> examinando {17}...{16} de {14}"
  1004. 5 1
  1005. 2 488 1 0 0 4 "prn" "prn"
  1006. 13
  1007. 18 0
  1008. 11 00001821
  1009. 0 6 "[40][20520]{11}"
  1010. 10 00001834
  1011. 10 00002945
  1012. 5 1
  1013. 2 488 1 0 0 4 "fnt" "fnt"
  1014. 13
  1015. 18 0
  1016. 11 00002945
  1017. 0 6 "[40][36][39][39][4131]"
  1018. 0 24
  1019. 13
  1020. 8 18
  1021. 0 1046 &3
  1022. 13
  1023. 8 19
  1024. 5 0
  1025. 0 1044 &3 "{18}"
  1026. 13
  1027. 0 805 &1 [X]
  1028. 13
  1029. 18 1
  1030. 11 00002044
  1031. 5 1
  1032. 8 20
  1033. 10 00002044
  1034. 5 1
  1035. 8 21
  1036. 6 10
  1037. 5 1
  1038. 3 1
  1039. 6 21
  1040. 18 2
  1041. 12 00002144
  1042. 10 00002237
  1043. 5 1
  1044. 6 21
  1045. 3 0
  1046. 8 21
  1047. 10 00002055
  1048. 6 18
  1049. 6 21
  1050. 22 5
  1051. 18 0
  1052. 11 00002224
  1053. 6 21
  1054. 22 4
  1055. 8 22
  1056. 0 6 "{22}"
  1057. 10 00002932
  1058. 10 00002109
  1059. 6 20
  1060. 5 1
  1061. 18 0
  1062. 11 00002421
  1063. 0 2 """{18}"" est<\a> disponible en la impresora por omisi<\s>n. </>Desea modificarlo?"
  1064. 13
  1065. 8 23
  1066. 6 23
  1067. 5 0
  1068. 18 0
  1069. 11 00002421
  1070. 5 0
  1071. 8 24
  1072. 10 00002774
  1073. 0 31 8050 """{18}"""
  1074. 0 31 8060 "{15}"
  1075. 6 20
  1076. 5 1
  1077. 18 0
  1078. 11 00002601
  1079. 0 31 8070 "se cambiar<\a>. Seleccione un tipo de letra disponible para sustituirlo."
  1080. 5 0
  1081. 8 20
  1082. 10 00002708
  1083. 0 31 8070 "no est<\a> disponible en la impresora por omisi<\s>n. Seleccione un tipo de letra disponible."
  1084. 0 31 9000 &3
  1085. 0 26 "." "CHNGFONT"
  1086. 13
  1087. 8 24
  1088. 0 27 9000
  1089. 13
  1090. 8 22
  1091. 6 24
  1092. 5 0
  1093. 18 0
  1094. 11 00002827
  1095. 6 18
  1096. 8 22
  1097. 5 0
  1098. 8 20
  1099. 6 10
  1100. 6 18
  1101. 23 5
  1102. 6 10
  1103. 6 22
  1104. 23 4
  1105. 6 10
  1106. 5 1
  1107. 3 0
  1108. 8 10
  1109. 0 6 "{22}"
  1110. 0 789 "Se est<\a> examinado {17}"
  1111. 10 00001834
  1112. 0 789 ""
  1113. 0 291 6
  1114. 2 107 1 1 "{17}" "ASCII" 0 "PARA" "ANSI"
  1115. 0 34 1 0
  1116. 10 00001368
  1117. 0 286 "AmiPro" "defstyle" "AMIPRO.INI"
  1118. 13
  1119. 8 25
  1120. 6 25
  1121. 7 ""
  1122. 18 0
  1123. 11 00003134
  1124. 7 "_OMISION.STY"
  1125. 8 25
  1126. 2 101 1 "{25}" 0 128
  1127. 0 789 ""
  1128. 0 1046 &6
  1129. 13
  1130. 8 26
  1131. 6 26
  1132. 5 1
  1133. 18 3
  1134. 11 00003262
  1135. 0 31 9000 &6
  1136. 0 26 "." "Graphics"
  1137. 13
  1138. 8 27
  1139. 6 0
  1140. 15
  1141. 9
  1142. 14 Embedded
  1143. 0 269
  1144. 13
  1145. 8 3
  1146. 5 0
  1147. 0 259 "{3}{0}" "r"
  1148. 13
  1149. 0 805 &2 [X]
  1150. 13
  1151. 18 1
  1152. 11 00000108
  1153. 10 00000161
  1154. 0 3 "No se ha podido abrir el archivo"
  1155. 5 -1
  1156. 15
  1157. 9
  1158. 0 263 "{2}" 0 2
  1159. 0 262 "{2}"
  1160. 13
  1161. 8 4
  1162. 6 4
  1163. 5 10
  1164. 3 1
  1165. 8 5
  1166. 0 263 "{2}" "{5}" 0
  1167. 0 782 "{2}" 10
  1168. 13
  1169. 8 6
  1170. 0 277 "{6}"
  1171. 13
  1172. 11 00000310
  1173. 10 00000336
  1174. 0 260 "{2}"
  1175. 5 -1
  1176. 15
  1177. 9
  1178. 6 6
  1179. 5 17
  1180. 3 0
  1181. 6 5
  1182. 18 5
  1183. 11 00000400
  1184. 5 -1
  1185. 8 7
  1186. 10 00000410
  1187. 5 0
  1188. 8 7
  1189. 0 260 "{2}"
  1190. 6 7
  1191. 15
  1192. 9
  1193. 6 1
  1194. 15
  1195. 9
  1196. 14 GetFonts
  1197. 0 295
  1198. 13
  1199. 8 2
  1200. 7 "{2}fontdll.exe"
  1201. 8 3
  1202. 0 789 "Se est<\a>n examinado los tipos de letra disponibles..."
  1203. 0 280 "{3}" 0
  1204. 13
  1205. 8 4
  1206. 6 4
  1207. 7 "FONTDLL.EXE"
  1208. 18 1
  1209. 11 00000262
  1210. 0 3 "No se ha hallado el archivo Fontdll.exe. Fin de la macro."
  1211. 5 -1
  1212. 15
  1213. 9
  1214. 0 297 "{3}" "FNT_FontInit" "A"
  1215. 13
  1216. 8 5
  1217. 0 284 "{5}"
  1218. 0 297 "{3}" "FNT_FontFace" "F"
  1219. 13
  1220. 8 6
  1221. 5 0
  1222. 8 8
  1223. 7 "a"
  1224. 8 7
  1225. 6 7
  1226. 7 ""
  1227. 18 1
  1228. 11 00000483
  1229. 0 284 "{6}"
  1230. 13
  1231. 8 7
  1232. 6 8
  1233. 5 1
  1234. 3 0
  1235. 8 8
  1236. 0 1045 &0 "{7}" 0
  1237. 10 00000379
  1238. 0 297 "{3}" "FNT_FontClose" "I"
  1239. 13
  1240. 8 9
  1241. 0 284 "{9}"
  1242. 13
  1243. 8 10
  1244. 0 298 "{9}"
  1245. 0 298 "{6}"
  1246. 0 298 "{5}"
  1247. 0 789 ""
  1248. 6 1
  1249. 15
  1250. 9
  1251. DIALOG CHNGFONT
  1252. -2134376448 9 94 78 181 128 "" "" "Tipo de letra nuevo" 
  1253. FONT 8 "Helv" 
  1254. 134 6 40 14 1 1342242817 "button" "Aceptar" 0 
  1255. 134 23 40 14 2 1342242816 "button" "Cancelar" 0 
  1256. 7 88 35 10 1000 1342177280 "static" "El tipo" 0 
  1257. 31 88 89 9 8050 1342177280 "static" "" 0 
  1258. 7 97 138 19 8070 1342177280 "static" "" 0 
  1259. 6 22 86 63 9000 1352728579 "listbox" "" 0 
  1260. 6 9 121 10 1006 1342177280 "static" "Tipos disponibles en la impresora:" 0 
  1261. 102 44 55 10 1001 1342177280 "static" "Hoja de estilos:" 0 
  1262. 102 56 57 10 8060 1342177280 "static" "" 0 
  1263. DIALOG PICKFILE
  1264. -2134376448 7 124 58 175 105 "" "" "Selecci≤n de hojas de estilos" 
  1265. FONT 8 "Helv" 
  1266. 5 15 62 83 9001 1352728579 "listbox" "" 0 
  1267. 110 5 43 14 1 1342242817 "button" "Aceptar" 0 
  1268. 5 4 73 10 7999 1342177280 "static" "text" 0 
  1269. 110 20 43 14 2 1342242816 "button" "Cancelar" 0 
  1270. 72 60 97 37 79 1342177287 "button" "Opciones:" 0 
  1271. 77 71 90 12 110 1342177289 "button" "Una sola hoja de estilos" 0 
  1272. 77 81 88 12 111 1342177289 "button" "Directorio completo" 0 
  1273. DIALOG Graphics
  1274. -2134376448 3 56 29 145 105 "" "" "Hojas de estilos sin modificar" 
  1275. FONT 8 "Helv" 
  1276. 101 4 40 14 1 1342373889 "button" "Aceptar" 0 
  1277. 4 43 93 53 9000 1352728579 "listbox" "" 0 
  1278. 4 3 94 33 1000 1342177280 "static" "Estas hojas de estilos no se han modificado debido la existencia de grßficos integrados" 0 
  1279. 00013371
  1280.